home *** CD-ROM | disk | FTP | other *** search
/ Deep Throat Girls 5 / Deep Throat Girls 5.iso / mac / MAC.Dir / 00034_keyput.ls < prev    next >
Encoding:
Text File  |  1997-02-09  |  516 b   |  27 lines
  1. on keyput
  2.   global key, next
  3.   set key to the keyCode
  4.   if (key = 1) and (the shiftDown = 1) then
  5.     set next to 1
  6.   else
  7.     if key = 53 then
  8.       set key to 0
  9.       if (the frame = 3) or (the frame = 4) then
  10.         repeat with q = 1 to 44
  11.           puppetSprite(q, 0)
  12.         end repeat
  13.       end if
  14.       stopMovie()
  15.     else
  16.       if key = 113 then
  17.         set key to 0
  18.         if the pauseState = 0 then
  19.           pause()
  20.         else
  21.           continue()
  22.         end if
  23.       end if
  24.     end if
  25.   end if
  26. end
  27.